home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- OldMode = FGgetmode
- FGsetmode 3
-
- IF FGmouseini < 0 THEN
- FGsetmode OldMode
- FGreset
- STOP
- END IF
-
- FGsetattr 7, 0, 0
- FGrect 0, FGgetmaxx, 0, FGgetmaxy
-
- FGsetattr 12, 7, 0
- FOR Row = 0 TO 24
- FGlocate Row, 34
- FGtext "example 14-9", 12
- NEXT
-
- FGmousevis 1
- FGwaitkey
- FGmousecur &h7FFF, &h7F00
- FGwaitkey
-
- FGsetmode OldMode
- FGreset
-
- END